home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / program / gcc / libmat.lha / src / I.cc < prev    next >
C/C++ Source or Header  |  1980-01-01  |  214b  |  17 lines
  1. //                MATRIX LIB
  2. //            TOMMY JOHANSSON 1995
  3.  
  4. #include "matrix.h"
  5. Matrix I(int n)
  6. {
  7.     Matrix A(n);
  8.     int i,j;
  9.     for(i=1;i<=n;i++)
  10.         for(j=1;j<=n;j++)
  11.         {
  12.             A.koff[i][j]=0;
  13.             if(i==j) A.koff[i][j]=1;
  14.         }
  15.     return(A);
  16. }
  17.